www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\include\Conn.asp

    <%
'///*****************
'   数据库链接类型
'*****************///

Dim conn,connstr,Rs,Rs1,Sql,Sql1

if 	datatype = "sqlserver"  then
  'connstr="Provider = Sqloledb;User ID ="&sqluser&"; Password ="&sqlpass&"; Initial Catalog ="&sqldataname&"; Data Source ="&sqlserver&";"  '数据库连接字符串  
   connstr="Driver={SQL Server};Server="&sqlserver&";Database="&sqldataname&";Uid="&sqluser&";Pwd="&sqlpass&";"
else		
   connstr="Data Source=" & Server.MapPath(datapath)&";Provider=Microsoft.Jet.OLEDB.4.0;"
end if

set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

sub close_conn()
	Set Rs=nothing
    Set Rs1=nothing
  conn.close
  set conn=nothing
end sub

Set Rs=Server.CreateObject("ADODB.Recordset")     '建立数据浏览对象
Set Rs1=Server.CreateObject("ADODB.Recordset")     '建立数据浏览对象

%>